

function [pmepr,papr,cf] = pmepr(seq)

cf = max(abs(seq))/sqrt(sum(abs(seq).^2/length(seq)));
pmepr = cf^2;
papr = max(abs(real(seq)))/sqrt(sum(real(seq).^2/length(seq)));

end